home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / sci / dproc126.lha / demo / dampf.tst next >
Text File  |  1993-02-27  |  2KB  |  111 lines
  1. #dsize 30
  2. #columns %d %f %f %f %f %f
  3. #queue 1 extr amp samp tcm t st
  4.  
  5. #globtitle "Gedämpfte Schwingung"
  6. #title extr "\#"
  7. #title amp "A"
  8. #title samp "$s_A$"
  9. #title t "t"
  10. #unit t "msec"
  11. #title st "$s_t$"
  12. #unit st "msec"
  13.  
  14. #gtitle amp "A(t)"
  15. #rtitle amp "$\bar{A}(t)$"
  16.  
  17. #func ampsc scale(amp):=amp/8.25
  18. #func tsc tsc(t):=(t+0.1)/((10.068*2)*10.5*milli)
  19. #func terr terr(t,tc):=tc*sqrt((0.05/t)^2+sqr(1/105))
  20.  
  21. #scale amp ampsc
  22. #scale samp ampsc
  23. #make t tsc tcm
  24. #make st terr tcm t
  25. #count extr
  26.  
  27. #prec 0 3
  28. #digital extr 0
  29.  
  30. #using amp tcm samp
  31.  
  32. 8.25/-0.1/0.05
  33. 7.05/0.65
  34. 6.2/1.35
  35. 5.25/2.1
  36. 4.7/2.8
  37. 3.9/3.5
  38. 3.5/4.25
  39. 2.95/4.95
  40. 2.65/5.7
  41. 2.2/6.4
  42. 1.95/7.1
  43. 1.6/7.85
  44. 1.45/8.55
  45. 1.25/9.25
  46. 1.1/10
  47.  
  48. #nop cross_on
  49.  
  50. #logreg 2 t amp
  51. #diff t st
  52.  
  53. #build rt "Schwingungsdauer T: %f4 +/- %f2 msec" 2*DPMX 2*DPSMX
  54. #math tau:=(-lg(me))/DPA
  55. #math stau:=abs(DPSA*lg(me)/sqr(DPA))
  56. #build rtau "Abklingzeit tau: %f4 +/- %f2 msec" tau stau
  57.  
  58. #newlog "Dampf.log"
  59.  
  60. #logpost rt
  61. #logpost rtau
  62.  
  63. #logline Gerechnet:
  64.  
  65. #meanof r sr 10.04 9.95
  66. #meanof c sc 0.109 0.107
  67. #math mt:=2*pi*r*c
  68. #math eta:=2*0.89-1
  69. #math seta:=2*0.01
  70. #math mtau:=20*r*c/eta
  71.  
  72. #build mt "  T: %f4 +/- %f2" mt "mt*sqrt(sqr(sr/r)+sqr(sc/c))"
  73. #build mtau "tau: %f4 +/- %f2" mtau "mtau*sqrt(sqr(sr/r)+sqr(sc/c)+sqr(seta/eta))"
  74. #build meta "eta: %f4 +/- %f2" eta seta
  75.  
  76. #logpost mt
  77. #logpost mtau
  78. #logpost meta
  79.  
  80. #term latex
  81. #set corr
  82. #storeset aID Exponent
  83. #set floathead
  84. #set caption dampf
  85. #set diffid $\bar{\triangle{t}}$
  86.  
  87. #nop
  88.  
  89. #ocol extr t st amp samp
  90. #write "dampf.tab"
  91.  
  92. #term gnuplot
  93. #set logscale y
  94. #storeset yrange 0.1:1
  95.  
  96. #if eepic
  97. #set output dampf.eep
  98. #endif
  99.  
  100. #ocol t amp samp
  101. #write "dampf.dta" "dampf.gnu"
  102.  
  103. #stop Press any key
  104. #flushset
  105.  
  106. #if gnup
  107. #dos gnuplot dampf.gnu
  108. #else
  109. ! GnuPlot was activated, if you selected it
  110. #endif
  111.